home *** CD-ROM | disk | FTP | other *** search
| Unknown | 1991-03-20 | 4.0 KB |
view JSON data
|
view as text
|
open on a Mac
|
open on a PC
This file was not able to be converted.
This format is not currently supported by dexvert.
| Confidence | Program | Detection | Match Type | Support
|
|---|
| 100%
| file
| data
| default
|
|
hex view+--------+-------------------------+-------------------------+--------+--------+
|00000000| 00 00 00 00 00 00 20 20 | 20 20 57 45 4e 44 0d 0a |...... | WEND..|
|00000010| 20 20 20 20 20 20 20 20 | 20 20 20 20 4d 4f 55 53 | | MOUS|
|00000020| 45 45 58 49 54 0d 0a 20 | 20 20 20 20 20 20 20 20 |EEXIT.. | |
|00000030| 20 20 20 56 49 44 45 4f | 4d 4f 44 45 53 45 54 20 | VIDEO|MODESET |
|00000040| 56 4d 4f 44 45 0d 0a 20 | 20 20 20 20 20 20 20 20 |VMODE.. | |
|00000050| 20 20 20 45 4e 44 0d 0a | 0a 0a 0a 0a 0a 0a 0a 0a | END..|........|
|00000060| 0a 0a 0a 0a 0a 0a 0a 0a | 0a 0a 0a 0a 0a 0a 0a 0a |........|........|
|00000070| 0a 0a 0a 0a 0a 0a 0a 0a | 0a 0a 0a 0a 0a 0a 0a 0a |........|........|
|00000080| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 | | |
|00000090| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 | | |
|000000a0| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 | | |
|000000b0| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 | | |
|000000c0| 20 20 20 20 20 20 20 20 | 20 38 36 0d 0c 0d 0a 0a | | 86.....|
|000000d0| 0a 0a 0a 0a 20 20 20 20 | 20 20 20 20 20 20 4d 4f |.... | MO|
|000000e0| 55 53 45 43 55 52 53 4f | 52 44 45 46 41 55 4c 54 |USECURSO|RDEFAULT|
|000000f0| 0d 0a 0a 20 20 20 20 20 | 20 20 20 20 20 20 20 50 |... | P|
|00000100| 52 4f 54 4f 54 59 50 45 | 0d 0a 0a 20 20 20 20 20 |ROTOTYPE|... |
|00000110| 20 20 20 20 20 20 20 53 | 55 42 20 4d 4f 55 53 45 | S|UB MOUSE|
|00000120| 43 55 52 53 4f 52 44 45 | 46 41 55 4c 54 20 28 29 |CURSORDE|FAULT ()|
|00000130| 0d 0a 0a 20 20 20 20 20 | 20 20 20 20 20 20 20 49 |... | I|
|00000140| 4e 50 55 54 0d 0a 0a 20 | 20 20 20 20 20 20 20 20 |NPUT... | |
|00000150| 20 20 20 6e 6f 20 69 6e | 70 75 74 20 70 61 72 61 | no in|put para|
|00000160| 6d 65 74 65 72 73 0d 0a | 0a 20 20 20 20 20 20 20 |meters..|. |
|00000170| 20 20 20 20 20 4f 55 54 | 50 55 54 0d 0a 0a 20 20 | OUT|PUT... |
|00000180| 20 20 20 20 20 20 20 20 | 20 20 6e 6f 20 76 61 6c | | no val|
|00000190| 75 65 20 72 65 74 75 72 | 6e 65 64 0d 0a 0a 20 20 |ue retur|ned... |
|000001a0| 20 20 20 20 20 20 20 20 | 20 20 55 53 41 47 45 0d | | USAGE.|
|000001b0| 0a 0a 20 20 20 20 20 20 | 20 20 20 20 20 20 4d 4f |.. | MO|
|000001c0| 55 53 45 43 55 52 53 4f | 52 44 45 46 41 55 4c 54 |USECURSO|RDEFAULT|
|000001d0| 20 64 65 66 69 6e 65 73 | 20 74 68 65 20 6d 6f 75 | defines| the mou|
|000001e0| 73 65 20 63 75 72 73 6f | 72 20 74 6f 20 62 65 20 |se curso|r to be |
|000001f0| 61 20 73 6d 61 6c 6c 0d | 0a 20 20 20 20 20 20 20 |a small.|. |
|00000200| 2c 00 07 4b 24 b7 c5 d4 | 03 d1 b0 58 51 29 e5 b4 |,..K$...|...XQ)..|
|00000210| 94 f0 f6 c1 c4 b4 85 a4 | 54 d9 10 2c 01 d4 aa 85 |........|T..,....|
|00000220| a4 58 39 d4 f4 85 a4 5c | 39 d4 14 55 9a b6 f3 60 |.X9....\|9..U...`|
|00000230| 39 d4 34 61 d4 64 39 d4 | 55 54 61 d4 68 39 d4 74 |9.4a.d9.|UTa.h9.t|
|00000240| 61 d4 6c 39 d4 55 94 61 | d4 70 39 d4 b4 61 d4 74 |a.l9.U.a|.p9..a.t|
|00000250| d9 10 50 54 f1 78 c1 8c | 80 b7 30 b2 8b e0 b3 8f |..PT.x..|..0.....|
|00000260| e0 55 b4 93 e0 b5 97 e0 | b6 9b e0 b7 a3 e2 d4 70 |.U......|.......p|
|00000270| 80 a7 e2 b8 ad e0 02 89 | 20 c8 c1 e3 08 8d f8 73 |........| ......s|
|00000280| 4b 90 ed 62 08 3c 10 24 | f5 dd 89 20 14 09 ed 89 |K..b.<.$|... ....|
|00000290| 20 18 1d ed 89 20 49 1c | 31 ed 89 20 20 45 ed 89 | .... I.|1.. E..|
|000002a0| 20 24 59 ed 92 89 20 28 | 6d ed 89 20 2c 81 ed 89 | $Y... (|m.. ,...|
|000002b0| 20 30 24 95 ed 89 20 a0 | a9 ed 89 20 a4 bd ed 89 | 0$... .|... ....|
|000002c0| 20 49 a8 d1 ed 89 20 ac | e5 ed 89 20 b0 f9 ed 92 | I.... .|... ....|
|000002d0| 89 20 34 0d fd 89 20 b4 | 21 fd 89 20 b8 24 35 fd |. 4... .|!.. .$5.|
|000002e0| 89 20 bc 49 fd 89 20 c0 | 5d fd 89 20 a9 38 71 fd |. .I.. .|].. .8q.|
|000002f0| 89 20 3c 85 fc e8 69 80 | 14 aa f9 50 18 05 10 1c |. <...i.|...P....|
|00000300| 99 80 20 9d 80 0a fc 0d | b0 d0 83 40 14 25 38 40 |.. .....|...@.%8@|
|00000310| 00 e2 e8 a0 10 bc d1 b0 | f0 63 00 a5 8f 2a 24 0d |........|.c...*$.|
|00000320| b0 b8 f0 8f ac f0 e7 d2 | 18 6d 00 a8 f5 1d ee 09 |........|.m......|
|00000330| d0 40 00 06 23 00 e6 f7 | 24 83 68 24 83 e0 72 61 |.@..#...|$.h$..ra|
|00000340| d0 02 85 00 60 9d 8a 00 | ef 10 80 00 25 80 20 2b |....`...|....%. +|
|00000350| 08 c4 df 01 13 00 20 54 | 8c 63 4f 8c ef 83 00 f8 |...... T|.cO.....|
|00000360| 31 3c 40 17 ff ff 5b 19 | 24 a8 80 ac 0c 4d 00 08 |1<@...[.|$....M..|
|00000370| 4d 00 6c fa 30 9f 20 59 | ac c4 21 25 18 36 61 de |M.l.0. Y|..!%.6a.|
|00000380| 8a 20 9d 08 8d 20 e1 a0 | 2b 08 3f 02 01 f1 ff 20 |. ... ..|+.?.... |
|00000390| 50 3c 01 8c 61 54 54 56 | 0c 08 d8 69 80 1c ad f2 |P<..aTTV|...i....|
|000003a0| b0 0b 60 5f a4 af 25 80 | a0 1b a0 a6 ff 50 db a7 |..`_..%.|.....P..|
|000003b0| af ee 60 82 61 f9 90 25 | 48 ae c1 a1 41 10 25 47 |..`.a..%|H...A.%G|
|000003c0| a0 72 f9 90 05 0a 69 10 | 77 f9 90 08 69 11 ed 60 |.r....i.|w...i..`|
|000003d0| 1d 10 cf f2 12 f0 d1 80 | 6d 00 fc b1 0a 5d 92 41 |........|m....].A|
|000003e0| a0 e5 04 77 01 03 05 37 | b0 00 10 02 f5 08 ef 09 |...w...7|........|
|000003f0| 01 05 24 08 11 01 00 03 | fa c7 80 04 fb 90 10 26 |..$.....|.......&|
|00000400| 5e 00 60 ff 10 ff bf 0b | 24 fc ff 07 ff 24 fe ff |^.`.....|$....$..|
|00000410| 06 24 d5 ff 6e 6b 24 4a | 2d 90 51 31 9c 50 82 42 |.$..nk$J|-.Q1.P.B|
|00000420| 97 ff 02 00 af 30 04 00 | e0 51 2f 02 00 a5 34 bd |.....0..|.Q/...4.|
|00000430| 00 10 9c b0 a7 50 f7 a5 | 34 80 f5 00 24 28 a6 00 |.....P..|4...$(..|
|00000440| df 24 40 07 01 43 5d 92 | 03 82 f7 00 c0 b8 5f 10 |.$@..C].|......_.|
|00000450| 00 53 00 80 87 a5 34 3d | 69 14 90 11 f4 11 84 13 |.S....4=|i.......|
|00000460| b9 3c 5f 10 6e 70 40 a5 | 34 35 95 15 b1 10 59 33 |.<_.np@.|45....Y3|
|00000470| 81 14 ac 10 51 01 a1 b0 | 2e 69 14 3e cc 11 00 40 |....Q...|.i.>...@|
|00000480| 08 35 2b c1 1c d3 90 be | d3 16 24 40 0b 01 23 c1 |.5+.....|..$@..#.|
|00000490| 16 40 ae cb 10 0a 24 1e | d1 16 0a 23 40 a5 a3 34 |.@....$.|...#@..4|
|000004a0| 1b 01 2c 1b 70 13 26 10 | 65 10 13 f6 81 15 10 ac |..,.p.&.|e.......|
|000004b0| 5f 10 80 51 00 10 a7 a5 | 34 0d 95 15 51 20 0b 81 |_..Q....|4...Q ..|
|000004c0| 14 40 3b 00 ad 5f 10 a0 | 51 40 65 10 cc f2 40 6d |.@;.._..|Q@e...@m|
|000004d0| 10 70 21 b4 61 1c 11 d4 | 13 1e 11 10 4f b0 fb 60 |.p!.a...|....O..`|
|000004e0| 50 a4 00 8f a7 ff 80 54 | f8 38 11 98 21 ac 00 8f |P......T|.8..!...|
|000004f0| a4 01 07 24 ab d3 1c 22 | 71 a8 ff 50 a4 43 80 a8 |...$..."|q..P.C..|
|00000500| e0 fb c0 d2 b0 65 00 54 | 22 e1 02 0e 3c 70 f8 25 |.....e.T|"...<p.%|
|00000510| 00 50 91 28 01 01 00 cf | 25 70 eb 9d 2f 4f 00 88 |.P.(....|%p../O..|
|00000520| 57 30 80 ac 1c 62 ed 20 | 08 ed 20 42 40 5b 00 83 |W0...b. |.. B@[..|
|00000530| ac 38 83 f2 e6 f3 28 09 | 08 a8 f5 25 28 80 00 ef |.8....(.|...%(...|
|00000540| 06 00 a0 54 98 70 00 2b | 0c a2 9a b2 00 30 21 e4 |...T.p.+|.....0!.|
|00000550| f1 28 31 f1 0d b0 18 b4 | 99 80 44 c0 10 44 30 8f |.(1.....|..D..D0.|
|00000560| 0e b5 60 ff ff ff 02 24 | 0c 00 ae 8c 00 4f 40 cf |..`....$|.....O@.|
|00000570| 31 0a 61 10 bc d1 6a 2d | 30 17 10 00 a4 b3 60 40 |1.a...j-|0.....`@|
|00000580| b7 62 e8 61 54 31 01 02 | cd f4 bc d1 e4 fd ac f1 |.b.aT1..|........|
|00000590| 2c 31 94 a1 8c 39 6c 98 | 01 1c 32 38 80 8f 60 e2 |,1...9l.|..28..`.|
|000005a0| 8c a8 50 fd 24 2c 01 03 | 00 4e 30 1e 00 7f c1 15 |..P.$,..|.N0.....|
|000005b0| 08 01 4f 30 1d 61 10 d7 | 08 00 eb f3 30 e5 a3 60 |..O0.a..|....0..`|
|000005c0| f8 8c b7 23 30 05 eb f0 | c0 58 dc 31 10 af 00 e4 |...#0...|.X.1....|
|000005d0| 8c 28 b1 00 1c 9d 80 db | a5 1f 22 71 a0 fb 31 43 |.(......|.."q..1C|
|000005e0| 80 a3 c7 d0 a7 ff 8f 0a | 00 46 54 0c 00 e9 fd 8c |........|.FT.....|
|000005f0| c0 31 80 00 59 30 09 00 | 77 20 13 fd 85 b0 24 40 |.1..Y0..|w ....$@|
|00000600| 41 8f 60 cb e8 ac d4 60 | 10 dc 31 18 41 ff ff 7d |A.`....`|..1.A..}|
|00000610| 03 bf 80 2a 35 0c 00 ea | 53 00 eb eb 8c 60 10 ac |...*5...|S....`..|
|00000620| 8c 61 00 00 eb 91 ac 8c | 35 0c 31 a8 f5 ea bd f4 |.a......|5.1.....|
|00000630| 20 01 ac 7f 9d ce 81 04 | 00 c0 51 8c 31 53 13 0d | .......|..Q.1S..|
|00000640| be f3 8c 39 d0 69 80 2c | f9 50 55 28 7d 80 24 81 |...9.i.,|.PU(}.$.|
|00000650| 80 20 85 80 1c 15 60 e5 | 18 8d 80 14 1d 60 1c 51 |. ....`.|.....`.Q|
|00000660| e0 9a 42 4f 24 25 98 80 | cf 22 24 02 80 ae 80 5d |..BO$%..|."$....]|
|00000670| 90 2e 01 c2 01 1f 5c 60 | 25 57 90 7f 01 00 15 24 |......\`|%W.....$|
|00000680| ff ff 11 57 30 ff 02 8e | 83 00 4f 30 13 00 5d e0 |...W0...|..O0..].|
|00000690| 47 c2 08 00 75 1b 72 ca | 0d b0 0e 9c b1 0d 00 51 |G...u.r.|.......Q|
|000006a0| 9b a3 c9 80 f0 01 f8 73 | 3f 60 16 02 00 58 30 d4 |.......s|?`...X0.|
|000006b0| 60 40 20 e6 02 57 02 00 | 83 40 b9 61 a0 20 02 ee |`@ ..W..|.@.a. ..|
|000006c0| 64 71 60 9d 39 3f 80 10 | 26 2b 6f 08 30 03 e6 79 |dq`.9?..|&+o.0..y|
|000006d0| 02 02 8e e4 41 8f 04 00 | 75 56 28 00 37 50 ce f1 |....A...|uV(.7P..|
|000006e0| 40 49 02 64 51 b8 40 8f | b4 40 3b 80 b2 3f 80 95 |@I.dQ.@.|.@;..?..|
|000006f0| b3 43 80 b4 c7 d0 b5 4b | 80 8e 33 30 fc ed f8 20 |.C.....K|..30... |
|00000700| 01 10 a2 ce 8d 2b 08 5d | 8e cb f0 20 14 09 4d 94 |.....+.]|... ..M.|
|00000710| bc e5 20 fd 1a 79 35 01 | 18 3c 21 c0 04 df 03 14 |.. ..y5.|.<!.....|
|00000720| a2 18 83 bc 90 33 10 7e | 6d 70 09 00 08 24 3c 1a |.....3.~|mp...$<.|
|00000730| be f3 39 92 2d 32 fc f0 | 00 40 54 2c 01 10 c6 e4 |..9.-2..|.@T,....|
|00000740| 61 04 2c 01 06 29 10 50 | 91 c0 9d 23 19 ac d8 51 |a.,..).P|...#...Q|
|00000750| b4 53 28 ac 40 41 8c 61 | 00 0d 12 f0 d1 40 99 fd |.S(.@A.a|.....@..|
|00000760| f1 f4 4b 89 44 c4 c1 04 | b1 df 30 d0 a5 24 ca 2d |..K.D...|..0..$.-|
|00000770| 30 20 d0 88 2a d3 04 b2 | 65 64 00 6d 60 8c 3d 1c |0 ..*...|ed.m`.=.|
|00000780| 33 00 4b 00 e1 2d 31 30 | 8a 3d f2 f3 01 fd c0 10 |3.K..-10|.=......|
|00000790| 9c 6d 8c 6a 79 20 98 65 | 01 fd fc d0 69 b8 65 b2 |.m.jy .e|....i.e.|
|000007a0| e4 6d e0 99 06 b6 43 25 | 80 2a 00 88 1e 2a 30 08 |.m....C%|.*...*0.|
|000007b0| 11 02 0b 45 a0 74 51 5a | 60 6d 8e 4c 00 50 04 25 |...E.tQZ|`m.L.P.%|
|000007c0| 10 09 f8 1a 81 fc a6 81 | 4e 51 11 02 f9 ff 20 54 |........|NQ.... T|
|000007d0| a8 3c 71 74 57 ea 63 20 | 15 7a b0 8f 80 a4 ea 87 |.<qtW.c |.z......|
|000007e0| 80 a6 87 80 ae 3b c0 01 | 3c 1a bf 00 a0 14 ac 9d |.....;..|<.......|
|000007f0| 2e ff a0 03 3f 3c e4 73 | 63 8c 11 29 10 a0 a1 7f |....?<.s|c..)....|
|00000800| 20 3a 3d 20 30 3b 0d 0a | 20 20 20 20 20 20 65 6e | := 0;..| en|
|00000810| 64 3b 0d 0a 20 20 20 20 | 65 6e 64 3b 0d 0a 20 20 |d;.. |end;.. |
|00000820| 65 6e 64 3b 0d 0a 20 20 | 57 61 69 74 54 6f 47 6f |end;.. |WaitToGo|
|00000830| 3b 0d 0a 65 6e 64 3b 20 | 7b 20 55 73 65 72 4c 69 |;..end; |{ UserLi|
|00000840| 6e 65 53 74 79 6c 65 50 | 6c 61 79 20 7d 0d 0a 0d |neStyleP|lay }...|
|00000850| 0a 0d 0a 70 72 6f 63 65 | 64 75 72 65 20 53 61 79 |...proce|dure Say|
|00000860| 47 6f 6f 64 62 79 65 3b | 0d 0a 7b 20 53 61 79 20 |Goodbye;|..{ Say |
|00000870| 67 6f 6f 64 62 79 65 20 | 61 6e 64 20 74 68 65 6e |goodbye |and then|
|00000880| 20 65 78 69 74 20 74 68 | 65 20 70 72 6f 67 72 61 | exit th|e progra|
|00000890| 6d 20 7d 0d 0a 76 61 72 | 0d 0a 20 20 56 69 65 77 |m }..var|.. View|
|000008a0| 49 6e 66 6f 20 3a 20 56 | 69 65 77 50 6f 72 74 54 |Info : V|iewPortT|
|000008b0| 79 70 65 3b 0d 0a 62 65 | 67 69 6e 0d 0a 20 20 4d |ype;..be|gin.. M|
|000008c0| 61 69 6e 57 69 6e 64 6f | 77 28 27 27 29 3b 0d 0a |ainWindo|w('');..|
|000008d0| 20 20 47 65 74 56 69 65 | 77 53 65 74 74 69 6e 67 | GetVie|wSetting|
|000008e0| 73 28 56 69 65 77 49 6e | 66 6f 29 3b 0d 0a 20 20 |s(ViewIn|fo);.. |
|000008f0| 53 65 74 54 65 78 74 53 | 74 79 6c 65 28 54 72 69 |SetTextS|tyle(Tri|
|00000900| 70 6c 65 78 46 6f 6e 74 | 2c 20 48 6f 72 69 7a 44 |plexFont|, HorizD|
|00000910| 69 72 2c 20 34 29 3b 0d | 0a 20 20 53 65 74 54 65 |ir, 4);.|. SetTe|
|00000920| 78 74 4a 75 73 74 69 66 | 79 28 43 65 6e 74 65 72 |xtJustif|y(Center|
|00000930| 54 65 78 74 2c 20 43 65 | 6e 74 65 72 54 65 78 74 |Text, Ce|nterText|
|00000940| 29 3b 0d 0a 20 20 77 69 | 74 68 20 56 69 65 77 49 |);.. wi|th ViewI|
|00000950| 6e 66 6f 20 64 6f 0d 0a | 20 20 20 20 4f 75 74 54 |nfo do..| OutT|
|00000960| 65 78 74 58 59 28 28 78 | 32 2d 78 31 29 20 64 69 |extXY((x|2-x1) di|
|00000970| 76 20 32 2c 20 28 79 32 | 2d 79 31 29 20 64 69 76 |v 2, (y2|-y1) div|
|00000980| 20 32 2c 20 27 54 68 61 | 74 27 27 73 20 61 6c 6c | 2, 'Tha|t''s all|
|00000990| 20 66 6f 6c 6b 73 21 27 | 29 3b 0d 0a 20 20 53 74 | folks!'|);.. St|
|000009a0| 61 74 75 73 4c 69 6e 65 | 28 27 50 72 65 73 73 20 |atusLine|('Press |
|000009b0| 61 6e 79 20 6b 65 79 20 | 74 6f 20 71 75 69 74 2e |any key |to quit.|
|000009c0| 2e 2e 27 29 3b 0d 0a 20 | 20 72 65 70 65 61 74 20 |..');.. | repeat |
|000009d0| 75 6e 74 69 6c 20 4b 65 | 79 50 72 65 73 73 65 64 |until Ke|yPressed|
|000009e0| 3b 0d 0a 65 6e 64 3b 20 | 7b 20 53 61 79 47 6f 6f |;..end; |{ SayGoo|
|000009f0| 64 62 79 65 20 7d 0d 0a | 0d 0a 0d 0a 50 52 4f 43 |dbye }..|....PROC|
|00000a00| 45 44 55 52 45 20 53 65 | 6c 65 63 74 4d 6f 64 65 |EDURE Se|lectMode|
|00000a10| 3b 0d 0a 56 41 52 0d 0a | 09 63 68 6f 69 63 65 31 |;..VAR..|.choice1|
|00000a20| 2c 63 68 6f 69 63 65 32 | 20 09 3a 20 43 48 41 52 |,choice2| .: CHAR|
|00000a30| 3b 0d 0a 20 20 20 78 73 | 69 7a 65 2c 79 73 69 7a |;.. xs|ize,ysiz|
|00000a40| 65 09 09 09 3a 20 57 4f | 52 44 3b 0d 0a 42 45 47 |e...: WO|RD;..BEG|
|00000a50| 49 4e 0d 0a 09 28 2a 20 | 4c 65 74 27 73 20 73 65 |IN...(* |Let's se|
|00000a60| 6c 65 63 74 20 61 20 6d | 6f 64 65 20 2a 29 0d 0a |lect a m|ode *)..|
|00000a70| 09 43 6c 72 53 63 72 3b | 0d 0a 09 57 72 69 74 65 |.ClrScr;|...Write|
|00000a80| 4c 6e 28 27 56 45 53 41 | 44 45 4d 4f 3a 27 29 3b |Ln('VESA|DEMO:');|
|00000a90| 0d 0a 09 57 72 69 74 65 | 4c 6e 28 27 31 2e 20 32 |...Write|Ln('1. 2|
|00000aa0| 35 36 20 63 6f 6c 6f 72 | 73 27 29 3b 0d 0a 09 57 |56 color|s');...W|
|00000ab0| 72 69 74 65 4c 6e 28 27 | 32 2e 20 33 32 37 36 38 |riteLn('|2. 32768|
|00000ac0| 20 63 6f 6c 6f 72 73 27 | 29 3b 0d 0a 09 57 72 69 | colors'|);...Wri|
|00000ad0| 74 65 4c 6e 28 27 33 2e | 20 36 35 35 33 36 20 63 |teLn('3.| 65536 c|
|00000ae0| 6f 6c 6f 72 73 27 29 3b | 0d 0a 09 57 72 69 74 65 |olors');|...Write|
|00000af0| 4c 6e 28 27 34 2e 20 31 | 36 37 37 37 32 31 36 20 |Ln('4. 1|6777216 |
|00000b00| 63 6f 6c 6f 72 73 27 29 | 3b 0d 0a 09 57 72 69 74 |colors')|;...Writ|
|00000b10| 65 4c 6e 28 27 51 20 75 | 69 74 27 29 3b 0d 0a 09 |eLn('Q u|it');...|
|00000b20| 57 72 69 74 65 4c 6e 3b | 0d 0a 09 57 72 69 74 65 |WriteLn;|...Write|
|00000b30| 28 27 59 6f 75 72 20 63 | 68 6f 69 63 65 3a 20 27 |('Your c|hoice: '|
|00000b40| 29 3b 0d 0a 09 52 45 50 | 45 41 54 0d 0a 09 09 52 |);...REP|EAT....R|
|00000b50| 65 61 64 4c 6e 28 63 68 | 6f 69 63 65 31 29 3b 0d |eadLn(ch|oice1);.|
|00000b60| 0a 20 20 20 20 20 20 49 | 46 20 63 68 6f 69 63 65 |. I|F choice|
|00000b70| 31 20 3c 3e 20 27 31 27 | 20 54 48 45 4e 20 42 45 |1 <> '1'| THEN BE|
|00000b80| 47 49 4e 0d 0a 20 20 20 | 20 20 20 09 57 72 69 74 |GIN.. | .Writ|
|00000b90| 65 4c 6e 28 27 53 6f 72 | 72 79 20 21 27 29 3b 0d |eLn('Sor|ry !');.|
|00000ba0| 0a 20 20 20 20 20 20 20 | 20 20 57 72 69 74 65 4c |. | WriteL|
|00000bb0| 6e 28 27 54 68 69 73 20 | 64 65 6d 6f 20 77 61 73 |n('This |demo was|
|00000bc0| 6e 27 27 74 20 77 72 69 | 74 74 65 6e 20 66 6f 72 |n''t wri|tten for|
|00000bd0| 20 6d 6f 72 65 20 61 73 | 20 32 35 36 20 63 6f 6c | more as| 256 col|
|00000be0| 6f 72 73 20 21 27 29 3b | 0d 0a 20 20 20 20 20 20 |ors !');|.. |
|00000bf0| 20 20 20 57 72 69 74 65 | 4c 6e 28 27 59 6f 75 20 | Write|Ln('You |
|00000c00| 77 6f 75 6c 64 20 6f 6e | 6c 79 20 67 65 74 20 61 |would on|ly get a|
|00000c10| 20 6c 69 6d 69 74 65 64 | 20 69 6d 70 72 65 73 73 | limited| impress|
|00000c20| 69 6f 6e 20 6f 66 20 74 | 68 65 20 48 69 2d 26 20 |ion of t|he Hi-& |
|00000c30| 54 72 75 65 43 6f 6c 6f | 72 20 6d 6f 64 65 73 2e |TrueColo|r modes.|
|00000c40| 2e 2e 27 29 3b 0d 0a 20 | 20 20 20 20 20 20 20 20 |..');.. | |
|00000c50| 57 72 69 74 65 4c 6e 28 | 27 53 77 69 74 63 68 69 |WriteLn(|'Switchi|
|00000c60| 6e 67 20 74 6f 20 32 35 | 36 20 63 6f 6c 6f 72 73 |ng to 25|6 colors|
|00000c70| 2e 27 29 3b 0d 0a 20 20 | 20 20 20 20 20 20 20 63 |.');.. | c|
|00000c80| 68 6f 69 63 65 31 20 3a | 3d 20 27 31 27 3b 0d 0a |hoice1 :|= '1';..|
|00000c90| 20 20 20 20 20 20 45 4e | 44 3b 0d 0a 09 55 4e 54 | EN|D;...UNT|
|00000ca0| 49 4c 20 63 68 6f 69 63 | 65 31 20 49 4e 20 5b 27 |IL choic|e1 IN ['|
|00000cb0| 31 27 2e 2e 27 34 27 2c | 27 71 27 5d 3b 0d 0a 09 |1'..'4',|'q'];...|
|00000cc0| 49 46 20 63 68 6f 69 63 | 65 31 20 3d 20 27 71 27 |IF choic|e1 = 'q'|
|00000cd0| 20 54 48 45 4e 20 48 61 | 6c 74 3b 0d 0a 0d 0a 09 | THEN Ha|lt;.....|
|00000ce0| 57 72 69 74 65 4c 6e 3b | 0d 0a 09 57 72 69 74 65 |WriteLn;|...Write|
|00000cf0| 4c 6e 3b 0d 0a 09 57 72 | 69 74 65 4c 6e 28 27 61 |Ln;...Wr|iteLn('a|
|00000d00| 2e 20 33 32 30 78 32 30 | 30 27 29 3b 0d 0a 09 57 |. 320x20|0');...W|
|00000d10| 72 69 74 65 4c 6e 28 27 | 62 2e 20 36 34 30 78 34 |riteLn('|b. 640x4|
|00000d20| 38 30 27 29 3b 0d 0a 09 | 57 72 69 74 65 4c 6e 28 |80');...|WriteLn(|
|00000d30| 27 63 2e 20 38 30 30 78 | 36 30 30 27 29 3b 0d 0a |'c. 800x|600');..|
|00000d40| 09 57 72 69 74 65 4c 6e | 28 27 64 2e 20 31 30 32 |.WriteLn|('d. 102|
|00000d50| 34 78 37 36 38 27 29 3b | 0d 0a 09 57 72 69 74 65 |4x768');|...Write|
|00000d60| 4c 6e 28 27 65 2e 20 31 | 32 38 30 78 31 30 32 34 |Ln('e. 1|280x1024|
|00000d70| 27 29 3b 0d 0a 09 57 72 | 69 74 65 4c 6e 28 27 51 |');...Wr|iteLn('Q|
|00000d80| 20 75 69 74 27 29 3b 0d | 0a 09 57 72 69 74 65 4c | uit');.|..WriteL|
|00000d90| 6e 3b 0d 0a 09 57 72 69 | 74 65 28 27 59 6f 75 72 |n;...Wri|te('Your|
|00000da0| 20 63 68 6f 69 63 65 3a | 20 27 29 3b 0d 0a 09 52 | choice:| ');...R|
|00000db0| 45 50 45 41 54 0d 0a 09 | 09 52 65 61 64 4c 6e 28 |EPEAT...|.ReadLn(|
|00000dc0| 63 68 6f 69 63 65 32 29 | 3b 0d 0a 09 55 4e 54 49 |choice2)|;...UNTI|
|00000dd0| 4c 20 63 68 6f 69 63 65 | 32 20 49 4e 20 5b 27 61 |L choice|2 IN ['a|
|00000de0| 27 2e 2e 27 65 27 2c 27 | 71 27 5d 3b 0d 0a 09 49 |'..'e','|q'];...I|
|00000df0| 46 20 63 68 6f 69 63 65 | 32 20 3d 20 27 71 27 20 |F choice|2 = 'q' |
|00000e00| 54 48 45 4e 20 48 61 6c | 74 3b 0d 0a 0d 0a 09 43 |THEN Hal|t;.....C|
|00000e10| 41 53 45 20 63 68 6f 69 | 63 65 32 20 4f 46 0d 0a |ASE choi|ce2 OF..|
|00000e20| 09 09 27 61 27 20 3a 20 | 42 45 47 49 4e 0d 0a 09 |..'a' : |BEGIN...|
|00000e30| 09 09 78 73 69 7a 65 20 | 3a 3d 20 33 32 30 3b 0d |..xsize |:= 320;.|
|00000e40| 0a 09 09 09 79 73 69 7a | 65 20 3a 3d 20 32 30 30 |....ysiz|e := 200|
|00000e50| 3b 0d 0a 09 09 45 4e 44 | 3b 0d 0a 09 09 27 62 27 |;....END|;....'b'|
|00000e60| 20 3a 20 42 45 47 49 4e | 0d 0a 09 09 09 78 73 69 | : BEGIN|.....xsi|
|00000e70| 7a 65 20 3a 3d 20 36 34 | 30 3b 0d 0a 09 09 09 79 |ze := 64|0;.....y|
|00000e80| 73 69 7a 65 20 3a 3d 20 | 34 38 30 3b 0d 0a 09 09 |size := |480;....|
|00000e90| 45 4e 44 3b 0d 0a 09 09 | 27 63 27 20 3a 20 42 45 |END;....|'c' : BE|
|00000ea0| 47 49 4e 0d 0a 09 09 09 | 78 73 69 7a 65 20 3a 3d |GIN.....|xsize :=|
|00000eb0| 20 38 30 30 3b 0d 0a 09 | 09 09 79 73 69 7a 65 20 | 800;...|..ysize |
|00000ec0| 3a 3d 20 36 30 30 3b 0d | 0a 09 09 45 4e 44 3b 0d |:= 600;.|...END;.|
|00000ed0| 0a 09 09 27 64 27 20 3a | 20 42 45 47 49 4e 0d 0a |...'d' :| BEGIN..|
|00000ee0| 09 09 09 78 73 69 7a 65 | 20 3a 3d 20 31 30 32 34 |...xsize| := 1024|
|00000ef0| 3b 0d 0a 09 09 09 79 73 | 69 7a 65 20 3a 3d 20 37 |;.....ys|ize := 7|
|00000f00| 36 38 3b 0d 0a 09 09 45 | 4e 44 3b 0d 0a 09 09 27 |68;....E|ND;....'|
|00000f10| 65 27 20 3a 20 42 45 47 | 49 4e 0d 0a 09 09 09 78 |e' : BEG|IN.....x|
|00000f20| 73 69 7a 65 20 3a 3d 20 | 31 32 38 30 3b 0d 0a 09 |size := |1280;...|
|00000f30| 09 09 79 73 69 7a 65 20 | 3a 3d 20 31 30 32 34 3b |..ysize |:= 1024;|
|00000f40| 0d 0a 09 09 45 4e 44 3b | 0d 0a 09 45 4e 44 3b 0d |....END;|...END;.|
|00000f50| 0a 09 43 41 53 45 20 63 | 68 6f 69 63 65 31 20 4f |..CASE c|hoice1 O|
|00000f60| 46 0d 0a 09 09 27 31 27 | 20 3a 20 6d 6f 64 65 20 |F....'1'| : mode |
|00000f70| 3a 3d 20 46 69 6e 64 56 | 65 73 61 4d 6f 64 65 28 |:= FindV|esaMode(|
|00000f80| 78 73 69 7a 65 2c 79 73 | 69 7a 65 2c 38 29 3b 0d |xsize,ys|ize,8);.|
|00000f90| 0a 09 09 27 32 27 20 3a | 20 6d 6f 64 65 20 3a 3d |...'2' :| mode :=|
|00000fa0| 20 46 69 6e 64 56 65 73 | 61 4d 6f 64 65 28 78 73 | FindVes|aMode(xs|
|00000fb0| 69 7a 65 2c 79 73 69 7a | 65 2c 31 35 29 3b 0d 0a |ize,ysiz|e,15);..|
|00000fc0| 09 09 27 33 27 20 3a 20 | 6d 6f 64 65 20 3a 3d 20 |..'3' : |mode := |
|00000fd0| 46 69 6e 64 56 65 73 | |FindVes | |
+--------+-------------------------+-------------------------+--------+--------+
